Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Методика розробки програм в середовищі TURBO PASCAL

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних наук та інформаційних технологій
Факультет:
Не вказано
Кафедра:
Програмного забезпечення (ПЗ)

Інформація про роботу

Рік:
2006
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови
Група:
КН

Частина тексту файла

Міністерство освіти та науки України Національний університет «Львівська політехніка» Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ З В І Т Лабораторна робота № 1 з курсу «Основи програмування та алгоритмічні мови» Тема: «Методика розробки програм в середовищі TURBO PASCAL» Варіант 1 Виконав: ст. гр. КН-1 Львів-2006 Мета роботи: Засвоєння основних дій для реалізації програм в середовищі TURBO PASCAL (TP): а) вхід в інтегроване середовище (ІС) TP; б) робота з редактором ІС, створення файла програми; в) збереження файла програми; г) компіляція програми; д) виконання програми. Завдання: 1. Створити файл програми на мові Паскаль, запропонованої викладачем або аналогічної, вибраної самостійно. 2. Відлагодити, скомпілювати і зберегти програму. 3. Запустити програму на розв’язування задачі і вивести результати для підготовки тестового прикладу. 4. Оформити звіт про роботу. Постановка задачі: Розв’язати квадратне рівняння . Блок-схема алгоритму  Текст програми program KvadrRivn; uses Crt; var a,b,c,x1,x2,d:real; begin ClrScr; writeln; writeln('Введіть коефіцієнти квадратного рівняння'); write(' a='); readln(a); write(' b='); readln(b); write(' c='); readln(c); writeln; if a=0 then writeln('Рівняння вироджене') else begin d:=b*b-4*a*c; if d<0 then writeln('Дійсних коренів не існує') else begin writeln('Розв"язки рівняння'); x1:=(-b+sqrt(d))/2/a; x2:=(-b-sqrt(d))/2/a; writeln(' x1=',x1:5:3); writeln(' x2=',x2:5:3); end; end; readln; end. Протокол роботи програми ----------------------------------------------------------------------------------------------- Введіть коефіцієнти квадратного рівняння a=0 b=3 c=1 Рівняння вироджене ----------------------------------------------------------------------------------------------- Введіть коефіцієнти квадратного рівняння a=2 b=-5 c=10 Дійсних коренів не існує ----------------------------------------------------------------------------------------------- Введіть коефіцієнти квадратного рівняння a=1 b=-7 c=10 Розв"язки рівняння x1=5.000 x2=2.000 ----------------------------------------------------------------------------------------------- Висновок: На даній лабораторній роботі я оволодів основними навичками роботи в середовищі Turbo Pascal, а саме: навчився входити в ІС TP, створив файл програми, відлагодив, скомпілював та зберіг програму, а також запустив програму на виконання і вивів результати для тестових прикладів.
Антиботан аватар за замовчуванням

01.01.1970 03:01

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини